home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / coreaids.arc / SCRN_RST.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-11-20  |  780 b   |  39 lines
  1. ;    DESC:    Restores 16K screen to video memory                  V1.00
  2. ;    SAMPLE:    SCRN_RST
  3. ;    ##################################################################
  4.  
  5. SCREEND Segment Para Common 'DATA'
  6.     DB    16384 DUP(0)
  7. SCREEND Ends
  8.  
  9.  
  10.     Extrn    PUSHALL:Near
  11.     Extrn    POPALL:Near
  12.     Extrn    SCRN_TYP:Near
  13.     Extrn    MOVE_BYT:Near
  14.  
  15. SCRN_RSC    Segment
  16.     Assume    CS:SCRN_RSC,DS:SCREEND
  17.     Public    SCRN_RST
  18.  
  19.     Include    CALLM.MAC
  20.                         ;notice.
  21.     DB    'SCRN_RST - V1.00, Copyright 1987, CoreTechs   ',0DH,0AH
  22.  
  23. SCRN_RST    Proc    Near            ;restores old screen.
  24.     Call    PUSHALL
  25.  
  26.     Call    SCRN_TYP            ;determine if color or b&w.
  27.     Pop    ES
  28.  
  29.     Mov    BX,SCREEND            ;setup workarea.
  30.     Mov    DS,BX
  31.  
  32.     Callm    MOVE_BYT,<SCREEND,0,ES,0,16384>,;recover video screen.
  33.     Call    POPALL
  34.     Ret
  35. SCRN_RST    Endp
  36.  
  37. SCRN_RSC    Ends
  38.     End
  39.